home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program69
< prev
next >
Wrap
Text File
|
2007-02-28
|
908b
|
35 lines
0010 // PROGRAM 69
0020 //
0030 // COMELY KATE
0040 //
0050 // TO DEAL WITH A LIST OF STOLEN CARS
0060 //
0070 DIM STOLENCARS$(50) OF 6, SUSPECT$ OF 6
0080 //
0090 // FIRST CONSTRUCT A LIST OF STOLEN CAR NUMBERS
0100 //
0110 READ TOTAL
0120 FOR COUNT:=1 TO TOTAL DO
0130 READ STOLENCARS$(COUNT)
0140 ENDFOR COUNT
0150 //
0160 // NOW SEARCH LIST FOR SUSPECT CAR
0170 //
0180 PRINT
0190 INPUT "ENTER SUSPECT CAR NUMBER ": SUSPECT$
0200 PRINT
0210 POSITION:=1
0220 REPEAT
0230 POSITION:=POSITION+1
0240 UNTIL POSITION>TOTAL OR STOLENCARS$(POSITION)=SUSPECT$
0250 IF POSITION>TOTAL THEN
0260 PRINT SUSPECT$," DOES NOT APPEAR IN LIST OF STOLEN CARS"
0270 ELSE
0280 PRINT SUSPECT$," IS IN LIST OF STOLEN CARS"
0290 ENDIF
0300 DATA 15
0310 DATA "516ONI","AZH457","AZH241","JZH333","LYI405","ZMI205","HMI987"
0320 DATA "KNI254","512ONI","ZNI123","ZNI587","LAI257","OZH589","KZH258"
0330 DATA "875BNI"
0340 END